home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / tools / xb / sample / xbc_inst.bas < prev    next >
BASIC Source File  |  1995-06-17  |  2KB  |  95 lines
  1. /*
  2. /* ぺけ-ＢＡＳｔｏＣ  簡易インストーラ
  3. /*
  4. /*    拡張機能の L を有効にし、dosfnc.fnc を組み込んで下さい
  5. /*
  6. str dname[255]
  7. char c
  8.  /*
  9. if file_exist("xbc.r")=0 then {
  10.     print "ぺけ-ＢＡＳｔｏＣを展開したディレクトリにて実行して下さい"
  11.     end
  12. }
  13.  /*
  14. dname=getenv("bc")
  15. if dname="" then print "環境変数 bc が設定されていません"
  16. *is0    /* ラベル
  17. if dname="" then {
  18.     print "Ｘ-ＢＡＳｔｏＣをインストールしてあるディレクトリ名を入力して下さい"
  19.     print ">>";
  20.     linput dname
  21. }
  22. if dname="" then goto *is0
  23. c=dname[strlen(dname)-1]    /* 最後の文字
  24. if c<>'\' and c<>'/' and c<>':' then dname=dname+"\"
  25. if file_exist(dname+"BC.X")=0 then {
  26.     color 2
  27.     print "そのディレクトリにＸ-ＢＡＳｔｏＣはインストールされていません"
  28.     color 3:beep:print
  29.     dname="":goto *is0
  30. }
  31. print
  32. print "** xbc.r, basic.cnf, DEF\*.def を ";
  33. color 1:print dname;:color 3
  34. print " にコピーします **"
  35. _sys("copy xbc.r "+dname)
  36. _sys("copy basic.cnf "+dname)
  37. _sys("copy DEF\*.def "+dname)
  38. print:print
  39.  /*
  40. inst_sub("xblib.a","lib")
  41. inst_sub("INCLUDE\*.h","include")
  42. end
  43.  /*
  44.  
  45.  
  46.  
  47. func inst_sub( inst;str , env0;str )
  48. str dname[255]
  49. dname=getenv(env0)
  50. if dname="" then print "環境変数 ";env0;" が設定されていません"
  51. *is1    /* ラベル
  52. if dname="" then {
  53.     print inst;" をインストールするディレクトリを指定して下さい"
  54.     print ">>";
  55.     linput dname
  56. }
  57. if dname="" then goto *is1
  58. print inst;" を ";dname;" にコピーします。よろしいですか？ (y/n)";
  59. if YorN()=0 then dname="":goto *is1
  60. print
  61. print "** ";inst;" を ";
  62. color 1:print dname;:color 3
  63. print " にコピーします **"
  64. _sys("copy "+inst+" "+dname)
  65. print:print
  66. endfunc
  67.  
  68.  
  69. func int YorN()
  70. str ink
  71. ink=inkey$:print
  72. if (ink[0] or &h20)='y' then return(1)
  73. return(0)
  74. endfunc
  75.  
  76.  
  77.  
  78. func _sys( com;str )
  79. print com
  80. /*_system( com )
  81. endfunc
  82.  
  83.  
  84.  
  85. func file_exist( fname;str )
  86. int f
  87.     error off
  88.     f=fopen(fname,"r")
  89.     error on
  90.     if errno=0 then fclose(f):return(1)
  91.     return(0)
  92. endfunc
  93.  
  94.  
  95.